home *** CD-ROM | disk | FTP | other *** search
/ The Very Best of Atari Inside / The Very Best of Atari Inside 1.iso / sharew / accs / scan_prg / scan_src / aes.s next >
Encoding:
Text File  |  1991-02-20  |  4.6 KB  |  266 lines
  1.  OPT O+
  2.  
  3. ;AES Macro library.  (C)-1990 by Terje Vernly
  4. ;BSS Section added by Lars-Erik Østerud  1991
  5.  
  6. ;AES
  7. APPL_INIT    equ 10
  8. APPL_READ    equ 11
  9. APPL_WRITE    equ 12
  10. APPL_FIND    equ 13
  11. APPL_TPLAY    equ 14
  12. APPL_TRECORD    equ 15
  13. APPL_EXIT    equ 19
  14. EVNT_KEYBD    equ 20
  15. EVNT_BUTTON    equ 21
  16. EVNT_MOUSE    equ 22
  17. EVNT_MESAG    equ 23
  18. EVNT_TIMER    equ 24
  19. EVNT_MULTI    equ 25
  20. EVNT_DCLICK    equ 26
  21. MENU_BAR    equ 30
  22. MENU_ICHECK    equ 31
  23. MENU_IENABLE    equ 32
  24. MENU_TNORMAL    equ 33
  25. MENU_TEXT    equ 34
  26. MENU_REGISTER    equ 35
  27. OBJC_ADD    equ 40
  28. OBJC_DELETE    equ 41
  29. OBJC_DRAW    equ 42
  30. OBJC_FIND    equ 43
  31. OBJC_OFFSET    equ 44
  32. OBJC_ORDER    equ 45
  33. OBJC_EDIT    equ 46
  34. OBJC_CHANGE    equ 47
  35. FORM_DO        equ 50
  36. FORM_DIAL    equ 51
  37. FORM_ALERT    equ 52
  38. FORM_ERROR    equ 53
  39. FORM_CENTER    equ 54
  40. GRAF_RUBBERBOX     equ 70
  41. GRAF_DRAGBOX    equ 71
  42. GRAF_MOVEBOX    equ 72
  43. GRAF_GROWBOX    equ 73
  44. GRAF_SHRINKBOX    equ 74
  45. GRAF_WATCHBOX    equ 75
  46. GRAF_SLIDEBOX    equ 76
  47. GRAF_HANDLE    equ 77
  48. GRAF_MOUSE    equ 78
  49. GRAF_MKSTATE    equ 79
  50. SCRP_READ    equ 80
  51. SCRP_WRITE    equ 81
  52. FSEL_INPUT    equ 90
  53. FSEL_EXINPUT    equ 91
  54. WIND_CREATE    equ 100
  55. WIND_OPEN    equ 101
  56. WIND_CLOSE    equ 102
  57. WIND_DELETE    equ 103
  58. WIND_GET    equ 104
  59. WIND_SET    equ 105
  60. WIND_FIND    equ 106
  61. WIND_UPDATE    equ 107
  62. WIND_CALC    equ 108
  63. RSRC_LOAD    equ 110
  64. RSRC_FREE    equ 111
  65. RSRC_GADDR    equ 112
  66. RSRC_SADDR    equ 113
  67. RSRC_OBFIX    equ 114
  68. SHEL_READ    equ 120
  69. SHEL_WRITE    equ 121
  70. SHEL_FIND    equ 124
  71. SHEL_ENVRN    equ 125
  72.  
  73. AES    MACRO
  74.     MOVE.W    #\1,D0
  75.     BSR    AES2
  76.     ENDM
  77.  
  78. AES2    MOVE.W    D0,CONTRL
  79.     SUB.W    #10,D0
  80.     LSL.W    #2,D0
  81.     LEA    AES_CTRL_LIST(PC),A0
  82.     LEA    0(A0,D0.W),A0
  83.     CLR.L    D0
  84.     MOVE.B    (A0),D0
  85.     MOVE.W    D0,CONTRL+2
  86.     MOVE.B    1(A0),D0
  87.     MOVE.W    D0,CONTRL+4
  88.     MOVE.B    2(A0),D0
  89.     MOVE.W    D0,CONTRL+6
  90.     MOVE.B    3(A0),D0
  91.     MOVE.W    D0,CONTRL+8
  92.  
  93.     MOVE.L    #AESPB,D1
  94.     MOVE.W    #$C8,D0
  95.     TRAP    #2
  96.     RTS
  97.  
  98. INIT    MACRO
  99.     MOVE.L    A7,A5
  100.     LEA    STACK(PC),A7
  101.     MOVE.L    4(A5),A5
  102.     MOVE.L    $C(A5),D0
  103.     ADD.L    $14(A5),D0
  104.     ADD.L    $1C(A5),D0
  105.     ADD.L    #$100,D0
  106.     MOVE.L    D0,-(SP)
  107.     MOVE.L    A5,-(SP)
  108.     MOVE.W    D0,-(SP)
  109.     MOVE.W    #$4A,-(SP)
  110.     TRAP    #1
  111.     ADDA.L    #$C,SP
  112.     AES    APPL_INIT
  113.     MOVE.W    INT_OUT,APPID
  114.     AES    GRAF_HANDLE
  115.     MOVE.W    INT_OUT,GRHANDLE
  116.     ENDM
  117.  
  118. INITACC    MACRO
  119.     LEA    STACK(PC),A7
  120.     AES    APPL_INIT
  121.     MOVE.W    INT_OUT,APPID
  122.     AES    GRAF_HANDLE
  123.     MOVE.W    INT_OUT,GRHANDLE
  124.     ENDM
  125.  
  126. AES_CTRL_LIST
  127.     dc.b 0,1,0,0    10
  128.     dc.b 2,1,1,0    11
  129.     dc.b 2,1,1,0    12
  130.     dc.b 0,1,1,0    13
  131.     dc.b 2,1,1,0    14
  132.     dc.b 1,1,1,0    15
  133.     dc.b 0,0,0,0    16*
  134.     dc.b 0,0,0,0    17*
  135.     dc.b 0,0,0,0    18*
  136.     dc.b 0,1,0,0    19
  137.     dc.b 0,1,0,0    20
  138.     dc.b 3,5,0,0    21
  139.     dc.b 5,5,0,0    22
  140.     dc.b 0,1,1,0    23
  141.     dc.b 2,1,0,0    24
  142.     dc.b 16,7,1,0    25
  143.     dc.b 2,1,0,0    26
  144.     dc.b 0,0,0,0    27*
  145.     dc.b 0,0,0,0    28*
  146.     dc.b 0,0,0,0    29*
  147.     dc.b 1,1,1,0    30
  148.     dc.b 2,1,1,0    31
  149.     dc.b 2,1,1,0    32
  150.     dc.b 2,1,1,0    33
  151.     dc.b 1,1,2,0    34
  152.     dc.b 1,1,1,0    35
  153.     dc.b 0,0,0,0    36*
  154.     dc.b 0,0,0,0    37*
  155.     dc.b 0,0,0,0    38*
  156.     dc.b 0,0,0,0    39*
  157.     dc.b 2,1,1,0    40
  158.     dc.b 1,1,1,0    41
  159.     dc.b 6,1,1,0    42
  160.     dc.b 4,1,1,0    43
  161.     dc.b 1,3,1,0    44
  162.     dc.b 2,1,1,0    45
  163.     dc.b 4,2,1,0    46
  164.     dc.b 8,1,1,0    47
  165.     dc.b 0,0,0,0    48*
  166.     dc.b 0,0,0,0    49*
  167.     dc.b 1,1,1,0    50
  168.     dc.b 9,1,0,0    51
  169.     dc.b 1,1,1,0    52
  170.     dc.b 1,1,0,0    53
  171.     dc.b 0,5,1,0    54
  172.     dc.b 0,0,0,0    55*
  173.     dc.b 0,0,0,0    56*
  174.     dc.b 0,0,0,0    57*
  175.     dc.b 0,0,0,0    58*
  176.     dc.b 0,0,0,0    59*
  177.     dc.b 0,0,0,0    60*
  178.     dc.b 0,0,0,0    61*
  179.     dc.b 0,0,0,0    62*
  180.     dc.b 0,0,0,0    63*
  181.     dc.b 0,0,0,0    64*
  182.     dc.b 0,0,0,0    65*
  183.     dc.b 0,0,0,0    66*
  184.     dc.b 0,0,0,0    67*
  185.     dc.b 0,0,0,0    68*
  186.     dc.b 0,0,0,0    69*
  187.     dc.b 4,3,0,0    70
  188.     dc.b 8,3,0,0    71
  189.     dc.b 6,1,0,0    72
  190.     dc.b 8,1,0,0    73
  191.     dc.b 8,1,0,0    74
  192.     dc.b 4,1,1,0    75
  193.     dc.b 3,1,1,0    76
  194.     dc.b 0,5,0,0    77
  195.     dc.b 1,1,1,0    78
  196.     dc.b 0,5,0,0    79
  197.     dc.b 0,1,1,0    80
  198.     dc.b 0,1,1,0    81
  199.     dc.b 0,0,0,0    82*
  200.     dc.b 0,0,0,0    83*
  201.     dc.b 0,0,0,0    84*
  202.     dc.b 0,0,0,0    85*
  203.     dc.b 0,0,0,0    86*
  204.     dc.b 0,0,0,0    87*
  205.     dc.b 0,0,0,0    88*
  206.     dc.b 0,0,0,0    89*
  207.     dc.b 0,2,2,0    90
  208.     dc.b 0,2,3,0    91
  209.     dc.b 0,0,0,0    92*
  210.     dc.b 0,0,0,0    93*
  211.     dc.b 0,0,0,0    94*
  212.     dc.b 0,0,0,0    95*
  213.     dc.b 0,0,0,0    96*
  214.     dc.b 0,0,0,0    97*
  215.     dc.b 0,0,0,0    98*
  216.     dc.b 0,0,0,0    99*
  217.     dc.b 5,1,0,0    100
  218.     dc.b 5,1,0,0    101
  219.     dc.b 1,1,0,0    102
  220.     dc.b 1,1,0,0    103
  221.     dc.b 2,5,0,0    104
  222.     dc.b 6,1,0,0    105
  223.     dc.b 2,1,0,0    106
  224.     dc.b 1,1,0,0    107
  225.     dc.b 6,5,0,0    108
  226.     dc.b 0,0,0,0    109*
  227.     dc.b 0,1,1,0    110
  228.     dc.b 0,1,0,0    111
  229.     dc.b 2,1,0,1    112 
  230.     dc.b 2,1,1,0    113
  231.     dc.b 1,1,1,0    114
  232.     dc.b 0,0,0,0    115
  233.     dc.b 0,0,0,0    116
  234.     dc.b 0,0,0,0    117
  235.     dc.b 0,0,0,0    118
  236.     dc.b 0,0,0,0    119
  237.     dc.b 0,1,2,0    120
  238.     dc.b 3,1,2,0    121
  239.     dc.b 0,0,0,0    122*
  240.     dc.b 0,0,0,0    123*
  241.     dc.b 0,1,1,0    124
  242.     dc.b 0,1,3,0    125
  243.  
  244.     EVEN
  245.     
  246. ;**************************************************************
  247.  
  248. AESPB        DC.L    CONTRL,GLOBAL,INT_IN,INT_OUT,ADDR_IN,ADDR_OUT
  249.  
  250.         SECTION    BSS
  251.  
  252. GRHANDLE    DS.W    1
  253. APPID        DS.W    1
  254.  
  255. CONTRL        DS.W    11
  256. GLOBAL        DS.W    15
  257.  
  258. INT_IN        DS.W    128
  259. INT_OUT        DS.W    128
  260. ADDR_IN        DS.W    128
  261. ADDR_OUT    DS.W    128
  262.         DS.L    100
  263. STACK        DS.W    10
  264.  
  265.         SECTION    TEXT
  266.